input bbase[bor,dek]
% input bbase;
% sunrules;	% use this to get boxes on the SUN screen
% pausing:=1;
N.height = S.height = W.width = E.width = 18pt;
M.height = M.width = 24pt;

def nediagline = 
	defaultpen:= pencircle scaled 2aa;
	draw (aa,bb) .. (bb,aa); 
	showit enddef;

vardef char.N.E =
aa:=.125pt; bb:=4pt; nediagline; 
aa:=.25pt; bb:=8pt; nediagline;
aa:=.5pt; bb:=12pt; nediagline;
aa:=1pt; bb:=16pt; nediagline;
enddef;

test N.E;

def swdiagline = 
	defaultpen:=pencircle scaled 2aa;
	draw (18pt-bb,18pt-aa) .. (18pt-aa,18pt-bb);
	showit enddef;

vardef char.S.W =
aa:=.125pt; bb:=4pt; swdiagline; 
aa:=.25pt; bb:=8pt; swdiagline;
aa:=.5pt; bb:=12pt; swdiagline;
aa:=1pt; bb:=16pt; swdiagline;
enddef;

test S.W;

def nwdiagline = 
	defaultpen:=pencircle scaled 2aa;
	draw (18pt-bb,aa) .. (18pt-aa,bb);
	showit enddef;

vardef char.N.W =
aa:=.125pt; bb:=4pt; nwdiagline; 
aa:=.25pt; bb:=8pt; nwdiagline;
aa:=.5pt; bb:=12pt; nwdiagline;
aa:=1pt; bb:=16pt; nwdiagline;
enddef;

test N.W;

def sediagline = 
	defaultpen:=pencircle scaled 2aa;
	draw (aa,18pt-bb) .. (bb,18pt-aa);
	showit enddef;

vardef char.S.E =
aa:=.125pt; bb:=4pt; sediagline; 
aa:=.25pt; bb:=8pt; sediagline;
aa:=.5pt; bb:=12pt; sediagline;
aa:=1pt; bb:=16pt; sediagline;
enddef;

test S.E;

def horizline =
	defaultpen:=pencircle scaled 2aa;
	draw (aa,bb) .. (24pt-aa,bb);
	showit enddef;

vardef char.N.M =
aa:=.125pt; bb:=4pt; horizline;
aa:=.25pt; bb:= 8pt; horizline;
aa:=.5pt; bb:= 12pt; horizline;
aa:=1pt; bb:=16pt; horizline;
enddef;

test N.M;

def horizline =
	defaultpen:=pencircle scaled 2aa;
	draw (aa,18pt-bb) .. (24pt-aa,18pt-bb);
	showit enddef;

vardef char.S.M =
aa:=.125pt; bb:=4pt; horizline;
aa:=.25pt; bb:= 8pt; horizline;
aa:=.5pt; bb:= 12pt; horizline;
aa:=1pt; bb:=16pt; horizline;
enddef;

test S.M;

def vertline =
	defaultpen:= pencircle scaled 2aa;
	draw (18pt-bb,aa) .. (18pt-bb,24pt-aa); showit enddef;

vardef char.M.W =
aa:=.125pt; bb:=4pt;  vertline;
aa:=.25pt; bb:=8pt; vertline;
aa:=.5pt; bb:=12pt; vertline; 
aa:=1pt; bb:=16pt; vertline;
enddef;


test M.W;

def vertline = 
	defaultpen:=pencircle scaled 2aa;
	draw (bb,aa) .. (bb,24pt-aa);
	showit enddef;

vardef char.M.E =
aa:=.125pt; bb:=4pt; vertline;
aa:=.25pt; bb:=8pt; vertline;
aa:=.5pt; bb:=12pt; vertline; 
aa:=1pt; bb:=16pt; vertline;
enddef;

test M.E;

end